home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / diskexpa.dms / in.adf / InstallDisk < prev    next >
Encoding:
Text File  |  1993-12-21  |  8.4 KB  |  399 lines
  1. (set osversion (/ (getversion) 65536))
  2.  
  3. (message
  4.    "\n\nWelcome to the DiskExpander installation!\n\n"
  5.    "Cracked by SkidRow Supplied By Fireflash"
  6.    "This utility program installs DiskExpander\nand all programs belonging "
  7.    "to the DiskExpander software package on your Workbench disk.\n\n"
  8.  
  9. )
  10.  
  11. (message
  12.    "\n\n\n\n\nIt is recommended to hold the DiskExpander disk in the internal "
  13.    "drive and the Workbench disk in the external drive."
  14. )
  15.  
  16. (askdisk
  17.    (dest "DiskExpander")
  18.    (prompt "\n\n\n\n\nPlease insert your DiskExpander original disk "
  19.            "into internal drive DF0:"
  20.    )
  21.    (help "The install program needs the disk for installing programs and "
  22.          "data on your Workbench disk."
  23.    )
  24. )
  25.  
  26. (message
  27.    "\n\nIf this is the first installation of DiskExpander, you'll be asked to "
  28.    "enter your personal data when the program is started. These Data will be "
  29.    "stored \non the original Disk.\n\nPlease ensure that you enter your data "
  30.    "correctly! \nThis, together with returning the registration card, "
  31.    "allows you to gain cheap updates to future versions of DiskExpander "
  32.    "containing more and enhanced features."
  33. )
  34.  
  35. (complete 0)
  36.  
  37. ;(run "DiskExpander:c/DEProtect con:30/50/600/150/Personal_Data_Input")
  38.  
  39. (set n 0)
  40. (set sourcedir "DiskExpander:c")
  41. (while (set thisfile (select n "assign" "rename" "delete" "join" "DiskExpander" ""))
  42.     (
  43.       (copyfiles
  44.           (prompt "" )
  45.           (help "")
  46.          (source (tackon sourcedir thisfile))
  47.          (dest "ram:c")
  48.       )
  49.  
  50.         (set n (+ n 1))
  51.     )
  52. )
  53.  
  54. (makedir "ram:l")
  55.  
  56. (copyfiles
  57.    (prompt "" )
  58.    (help "")
  59.    (source "DiskExpander:l")
  60.    (dest "ram:l")
  61.    (pattern "DE#?-handler")
  62. )
  63.  
  64. (makedir "ram:libs")
  65. (copyfiles
  66.    (prompt "" )
  67.    (help "")
  68.    (source "DiskExpander:libs")
  69.    (dest "ram:libs")
  70.    (pattern "xpk#?.library")
  71. )
  72.  
  73.  
  74. (complete 5)
  75.  
  76. (run "DiskExpander:c/assign l: ram:l")
  77. (complete 6)
  78. (run "DiskExpander:c/assign libs: ram:libs")
  79. (complete 7)
  80. (run "DiskExpander:c/DiskExpander >NIL: protect")
  81. (complete 8)
  82. (run "DiskExpander:c/DiskExpander >NIL: device DF0: library NUKE ")
  83. (complete 9)
  84. (run "DiskExpander:c/DiskExpander >NIL: device DF1: library NUKE ")
  85.  
  86.  
  87.  
  88. (complete 12)
  89.  
  90. (message
  91.    "\n\n\n\nYour personal data and the system configuration have been "
  92.    "stored on the diskette.\n\n"
  93.    "The contents of the Workbench disk will now be compressed to "
  94.    "ensure that there's enough space for DiskExpander and the utilities.\n\n"
  95.  
  96.    "Please write-protect your original DiskExpander program disk now."
  97. )
  98.  
  99. (run "DiskExpander:InstallData/programdata/DevicePacker >\"con:30/50/600/150/Einen Moment Geduld! DevicePacker arbeitet...\" workbench: all")
  100.  
  101. (complete 33)
  102. (run "DiskExpander:c/DiskExpander >NIL: device DF0: remove")
  103. (complete 34)
  104. (run "DiskExpander:c/DiskExpander >NIL: device DF1: remove")
  105. (complete 35)
  106.  
  107. (message
  108.    "\n\n\n\n\nTo speedup the installation process, some data will be "
  109.    "temporarily copied to the RAM disk."
  110. )
  111.  
  112. (makedir "ram:c")
  113.  
  114.  
  115. (makedir "ram:installdata")
  116.  
  117. (complete 35)
  118.  
  119.  
  120. (complete 36)
  121.  
  122.  
  123. (complete 37)
  124.  
  125. (copyfiles
  126.    (prompt "" )
  127.    (help "")
  128.    (source "DiskExpander:libs")
  129.    (dest "ram:libs")
  130.    (pattern "epu#?.library")
  131. )
  132.  
  133. (complete 38)
  134.  
  135.  
  136. (complete 39)
  137.  
  138. (copyfiles
  139.    (prompt "" )
  140.    (help "")
  141.    (source "DiskExpander:installdata")
  142.    (dest "ram:installdata")
  143.    (all)
  144. )
  145.  
  146. (complete 40)
  147.  
  148. (run "ram:c/delete ram:installdata/tracksalve")
  149.  
  150. (set realdest "workbench:DiskExpander")
  151.  
  152. (if
  153.    (= (exists realdest) 0)
  154.       (makedir realdest (infos))
  155. )
  156.  
  157. (complete 41)
  158.  
  159. (if (= @user-level 2)
  160.    (
  161.       (set libflag
  162.          (askoptions
  163.             (prompt
  164.                "Please select the compression libraries to be installed "
  165.                "on the Workbench disk.:"
  166.             )
  167.             (help
  168.                "To adjust DiskExpander for specific purposes, "
  169.                "the program allows you to choose the compression library "
  170.                "that suits best your personal needs.\n\n"
  171.                "For detailed information on the compression libraries, please "
  172.                "read the manual that comes along with DiskExpander or the "
  173.                "file ReadMe! on the original disk."
  174.             )
  175.             (choices
  176.                "epu0"
  177.                "epu1"
  178.                "NUKE"
  179.                "BLZW"
  180.                "FAST"
  181.                "SHRI"
  182.             )
  183.             (default 65535)
  184.          )
  185.       )
  186.  
  187.       (if
  188.          (askbool
  189.             (prompt "\n\nDo you want DiskExpander to be installed using the "
  190.                     "graphical appearance of Workbench 2.0?")
  191.             (help
  192.                "When Workbench 2.0 was released, the basic Workbench colors "
  193.                "black and white have been exchanged due to technical reasons. "
  194.                "Therefore, icons especially designed for use with Workbench 1.3 "
  195.                "look unsightly when used with Workbench 2.0.\n\n"
  196.                "To avoid this effect, DiskExpander contains different icons "
  197.                "for both versions of the operating system.\n\n"
  198.                "Please install the type of icons that graphically matches your "
  199.                "Workbench."
  200.             )
  201.          )
  202.          (
  203.             (set kickflag 1)
  204.          )
  205.          (
  206.             (set kickflag 0)
  207.          )
  208.       )
  209.    )
  210.    (
  211.       (set libflag 65535)
  212.       (if (>= osversion 36)
  213.          (
  214.             (set kickflag 1)
  215.          )
  216.       )
  217.       (if (<= osversion 35)
  218.          (
  219.             (set kickflag 0)
  220.          )
  221.       )
  222.    )
  223. )
  224.  
  225. (onerror
  226.    (abort
  227.       "DiskExpander cannot be installed successfully "
  228.       "because the compression libraries cannot be copied to the "
  229.       "target device!\n\n"
  230.    )
  231. )
  232.  
  233. (if (IN libflag 0)
  234.    (copylib
  235.       (prompt "" )
  236.       (help "")
  237.       (source "ram:libs/epu0.library")
  238.       (dest "workbench:libs")
  239.    )
  240. )
  241.  
  242. (complete 43)
  243.  
  244. (if (IN libflag 1)
  245.    (copylib
  246.       (prompt "" )
  247.       (help "")
  248.       (source "ram:libs/epu1.library")
  249.       (dest "workbench:libs")
  250.    )
  251. )
  252.  
  253. (complete 45)
  254.  
  255. (if (IN libflag 2)
  256.    (copylib
  257.       (prompt "" )
  258.       (help "")
  259.       (source "ram:libs/xpkNUKE.library")
  260.       (dest "workbench:libs")
  261.    )
  262. )
  263.  
  264. (complete 50)
  265.  
  266. (if (IN libflag 3)
  267.    (copylib
  268.       (prompt "" )
  269.       (help "")
  270.       (source "ram:libs/xpkBLZW.library")
  271.       (dest "workbench:libs")
  272.    )
  273. )
  274.  
  275. (complete 55)
  276.  
  277. (if (IN libflag 4)
  278.    (copyfiles
  279.       (prompt "" )
  280.       (help "")
  281.       (source "ram:libs/xpkFAST.library")
  282.       (dest "workbench:libs")
  283.    )
  284. )
  285.  
  286. (complete 60)
  287.  
  288. (if (IN libflag 5)
  289.    (copylib
  290.       (prompt "" )
  291.       (help "")
  292.       (source "ram:libs/xpkSHRI.library")
  293.       (dest "workbench:libs")
  294.    )
  295. )
  296.  
  297. (complete 65)
  298.  
  299. (onerror
  300.    (abort
  301.       "DiskExpander cannot be installed successfully "
  302.       "because the handler files cannot be copied to the "
  303.       "target device!\n\n"
  304.    )
  305. )
  306.  
  307. (copyfiles
  308.    (prompt "" )
  309.    (help "")
  310.    (source "ram:l")
  311.    (dest "workbench:l")
  312.    (pattern "DE#?-handler")
  313. )
  314.  
  315. (complete 70)
  316.  
  317. (onerror
  318.    (abort
  319.       "DiskExpander cannot be installed successfully "
  320.       "because the main program and the utilites cannot be copied to the "
  321.       "target device!\n\n"
  322.    )
  323. )
  324.  
  325. (copyfiles
  326.    (prompt "" )
  327.    (help "")
  328.    (source "ram:c/DiskExpander")
  329.    (dest "workbench:c")
  330. )
  331.  
  332. (complete 73)
  333.  
  334.  
  335. (run "ram:c/DiskExpander >NIL: device DF0: library NUKE ")
  336. (complete 74)
  337. (run "ram:c/DiskExpander >NIL: device DF1: library NUKE ")
  338. (complete 75)
  339.  
  340.  
  341. (copyfiles
  342.    (prompt "" )
  343.    (help "")
  344.    (source "ram:installdata/ProgramData")
  345.    (dest realdest)
  346.    (pattern "#?")
  347. )
  348.  
  349. (complete 81)
  350. (run "ram:c/DiskExpander >NIL: device DF0: remove")
  351. (complete 82)
  352. (run "ram:c/DiskExpander >NIL: device DF1: remove")
  353.  
  354.  
  355. (complete 85)
  356.  
  357. (if (= kickflag 0)
  358.    (set sourcedir "ram:InstallData/Icons1.3")
  359. )
  360.  
  361. (if (= kickflag 1)
  362.    (set sourcedir "ram:InstallData/Icons2.0")
  363. )
  364.  
  365. (copyfiles
  366.    (prompt "" )
  367.    (help "")
  368.    (source sourcedir)
  369.    (dest realdest)
  370.    (all)
  371. )
  372.  
  373. (complete 95)
  374.  
  375. (run "ram:c/assign l: workbench:l")
  376. (complete 96)
  377. (run "ram:c/assign libs: workbench:libs")
  378. (run "ram:c/diskexpander >nil: protect")
  379. (complete 97)
  380.  
  381. (run "ram:c/rename workbench:s/startup-sequence workbench:s/ss.old")
  382. (complete 98)
  383. (run "ram:c/join ram:InstallData/ss.1 workbench:s/ss.old as workbench:s/startup-sequence")
  384. (complete 99)
  385. (run "ram:c/delete workbench:s/ss.old")
  386.  
  387. (complete 100)
  388.  
  389. (exit
  390.    "DiskExpander is now ready to be started from the Workbench. "
  391.    "Necessary changes to the Startup-Sequence have been made. \n\n"
  392.    "The original disk is needed once again when DiskExpander is started from "
  393.    "the Workbench for the first time. "
  394.    "Afterwards, you should keep your original disk in a secure place."
  395. )
  396.  
  397.  
  398.  
  399.